% File "floor.t".
% Find the area of a floor given its length and width.
var len, width : real
put "Enter length in meters " ..
get len
put "Enter width in meters " ..
get width
put "Area is ", len * width : 10 : 2, " square meters"
